(mark-sexp-diary-entries): Add \ for C-M-f's sake.

diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index 73f8315d086681f9bfc801b7dd7f63a0d694cd2c..81fafcd695ab0fb6bd2e1ad6241f99094bbaad08 100644 (file)
--- a/lisp/calendar/diary-lib.el
+++ b/lisp/calendar/diary-lib.el
@@ -734,7 +734,7 @@ is marked.  See the documentation for the function `list-sexp-diary-entries'."
            (list m (calendar-last-day-of-month m y) y)))
     (goto-char (point-min))
     (while (re-search-forward s-entry nil t)
-      (if (char-equal (preceding-char) ?()
+      (if (char-equal (preceding-char) ?\()
           (setq marking-diary-entry t)
         (setq marking-diary-entry nil))
       (re-search-backward "(")